home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
think
/
Klondik1.lha
/
Install
next >
Wrap
Text File
|
1994-06-01
|
6KB
|
232 lines
(complete 0)
(set default_lang 4)
(set #bad-kick
(cat "You must be using Kickstart 3.0 to install this game"
))
(set #which-disk
(cat "In which partition should the game be installed?"
))
(set #which-disk-help
(cat "\nThis section lets you choose on which hard drive partition the "
"Game files will be installed. "
@askdir-help
))
;=============================================================================
; make sure we are running under V39
(if (< (/ (getversion) 65536) 39)
(
(abort #bad-kick)
))
(user 0)
(welcome)
(set old_level @user-level)
;=============================================================================
; get target directory where game is to be installed
(set old_wb ("SYS:"))
(user 2)
(set target (askdir (prompt #which-disk)
(help #which-disk-help)
(default "")
(disk)
))
(user old_level)
(copyfiles (source "REKO01:")
(dest "RAM:")
(pattern "lz")
)
(set workingMsg ("Extracting files from Main archive"))
(working workingMsg)
(run ("RAM:lz x REKO01:MAIN.LZH ram:"))
(complete 15)
(makedir (tackon target "REKO-Productions"))
(set wtarget target)
(copyfiles (source "RAM:REKO.infa")
(dest wtarget)
)
(rename (tackon wtarget "REKO.infa") (tackon wtarget "REKO-Productions.info"))
(set target (tackon target "REKO-Productions"))
(set @default-dest target)
(set wtarget target)
;=============================================================================
; get the version from medplayer.library currently installed
(if (= (exists "Libs:medplayer.library") 1)
(
(protect "Libs:medplayer.library" "+rwed")
)
)
(copylib
(prompt ("Copying %s to %s" "RAM:medplayer.library" "Libs:"))
(help copyLibFileHelp
"\n"
"If you already have a copy of this library in the selected destination directory, the library "
"included on the distribution disk will be compared to the one you "
"already have. If your current library is an old version, the newer "
"version will be installed.\n"
"\n"
@copylib-help
)
(source "RAM:medplayer.library")
(dest "Libs:")
(confirm)
)
(complete 20)
;=============================================================================
; Put REKOCHARS in Fonts: directory
(copyfiles (source "RAM:")
(dest "FONTS:")
(pattern "REKOCH#?")
)
;=============================================================================
; Put REKO command in C: directory
(copyfiles (source "RAM:REKO")
(dest "C:")
)
;=============================================================================
; make some new drawers
(makedir (tackon wtarget "PICS"))
(makedir (tackon wtarget "MUSIC"))
(makedir (tackon wtarget "CARDS"))
(copyfiles (source "RAM:REKO.infa")
(dest wtarget)
)
(rename (tackon wtarget "REKO.infa") (tackon wtarget "MAKE-CARDS.info"))
(copyfiles (source "RAM:")
(dest wtarget)
(pattern "MAKE#?")
)
(copyfiles (source "RAM:KlondikeII.info")
(dest wtarget)
)
(copyfiles (source "RAM:KlondikeII")
(dest wtarget)
)
(copyfiles (source "RAM:REKO.Prefs.info")
(dest wtarget)
)
(copyfiles (source "RAM:REKO.Prefs")
(dest wtarget)
)
(complete 25)
(copyfiles (source "RAM:")
(dest wtarget)
(pattern "REKO.Docs#?")
)
(copyfiles (source "RAM:FullView")
(dest wtarget)
)
(copyfiles (source "RAM:")
(dest wtarget)
(pattern "REKO.QRCard#?")
)
(complete 30)
(set workingMsg ("Extracting files from Pics archive"))
(working workingMsg)
(set destdir (tackon wtarget "PICS/"))
(run ("RAM:lz x REKO01:PICS.LZH \"%s\"" destdir))
(complete 45)
(set workingMsg ("Extracting files from Music archive"))
(working workingMsg)
(set destdir (tackon wtarget "MUSIC/"))
(run ("RAM:lz x REKO02:MUSIC.LZH \"%s\"" destdir))
(complete 65)
(set workingMsg ("Extracting files from Cards archive"))
(working workingMsg)
(set destdir (tackon wtarget "CARDS/"))
(run ("RAM:lz x REKO03:CARDS.LZH \"%s\"" destdir))
(complete 95)
(delete "RAM:lz")
(delete "ram:Rekochars.FONT")
(delete "ram:REKO.QRcard.info")
(delete "ram:REKO.QRcard")
(delete "ram:REKO.Prefs.info")
(delete "ram:REKO.Prefs")
(delete "ram:REKO.infa")
(delete "ram:REKO.Docs.info")
(delete "ram:REKO.Docs")
(delete "ram:Reko")
(delete "ram:medplayer.library")
(delete "ram:KlondikeII.info")
(delete "ram:KlondikeII")
(delete "ram:FullView")
(delete "ram:MAKE-CARDS/Various-Frames&Symbols")
(delete "ram:MAKE-CARDS/REKO-cutter2")
(delete "ram:MAKE-CARDS/REKO-cutter1")
(delete "ram:MAKE-CARDS/PREF-Frames")
(delete "ram:MAKE-CARDS/Example4")
(delete "ram:MAKE-CARDS/Example3")
(delete "ram:MAKE-CARDS/Example2")
(delete "ram:MAKE-CARDS/Example1")
(delete "ram:MAKE-CARDS/RED/SYMBOLS")
(delete "ram:MAKE-CARDS/RED/FRAME")
(delete "ram:MAKE-CARDS/RED/CARD01")
(delete "ram:MAKE-CARDS/RED/CARD00")
(delete "ram:MAKE-CARDS/GREEN/SYMBOLS")
(delete "ram:MAKE-CARDS/GREEN/FRAME")
(delete "ram:MAKE-CARDS/GREEN/CARD01")
(delete "ram:MAKE-CARDS/GREEN/CARD00")
(delete "ram:MAKE-CARDS/BLUE/SYMBOLS")
(delete "ram:MAKE-CARDS/BLUE/FRAME")
(delete "ram:MAKE-CARDS/BLUE/CARD01")
(delete "ram:MAKE-CARDS/BLUE/CARD00")
(delete "ram:REKOCHARS/22")
(complete 100)